TY MLISP.DO[ML,DWP]

COMMENT ⊗   VALID 00013 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	R MLISP2.PRI 39↔N↔
C00004 00003	R MLISP2.PRI 39↔N↔
C00005 00004	R IC 39↔
C00006 00005	COMPILE SCAN.MAC[S,DAV]↔
C00007 00006	COPY UTILS/L/Q←RUNFN2.LAP,ACHLOC,SETQS↔
C00008 00007	R IL 23↔
C00009 00008	RU MLISP↔
C00010 00009	R IL 33↔
C00011 00010	RU MLISPC↔
C00012 00011	G MLISP↔
C00013 00012	DEL *.LSP,*.LAP,*.DMP,*.TMP,*.REL,*.RPG↔
C00014 00013	SPOOL MLISP.M2,RUNFN1.M2,RUNFN2.M2,MINIT,SETQS,PPRINT.M2,MACROS.M2,MACRO1.M2↔
C00015 ENDMK
C⊗;








R MLISP2.PRI 39↔N↔
(PARSE(MLISP.M2)MLISP NIL⎇
β
|








R MLISP2.PRI 39↔N↔
(PARSE(RUNFN2.M2)RUNFN2 NIL⎇
(PARSE(RUNFN1.M2)RUNFN1⎇
β
|








R IC 39↔
⎇(COMPL(MLISP.SPC)(MLISP.LSP)(RUNFN1.LSP)(RUNFN2.LSP⎇
β
|








COMPILE SCAN.MAC[S,DAV]↔
R IC 39↔
⎇(COMPL COMPLR⎇
β
|








COPY UTILS/L/Q←RUNFN2.LAP,ACHLOC,SETQS↔
|








R IL 23↔
Y2000 10300  ↔
(DSKIN(MLISP.LAP)(RUNFN1.LAP)MINIT UTILS⎇
(EXCISE⎇
β
SAVE MLISP↔
|








RU MLISP↔
(INIT1⎇
DSK:SCAN⎇
(INIT2⎇
β
SAVE MLISP↔
|








R IL 33↔
Y3000 24000  ↔
(DSKIN (MLISP.LAP)(COMPLR.LAP⎇π↔
(EXCISE⎇
β
SAVE MLISPC↔
|








RU MLISPC↔
(DSKIN(S,DAV)PPRINT MINIT  UTILS⎇
(INIT1)↔
DSK:SCAN⎇
(INIT2)↔
β
SAVE MLISPC↔
|








G MLISP↔
SAVE SYS MLISP↔
G MLISPC↔
SAVE SYS MLISPC↔
|








DEL *.LSP,*.LAP,*.DMP,*.TMP,*.REL,*.RPG↔
|








SPOOL MLISP.M2,RUNFN1.M2,RUNFN2.M2,MINIT,SETQS,PPRINT.M2,MACROS.M2,MACRO1.M2↔
|



EXIT
↑C
.